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FACILITY: SATS SYSTEM SERVICE TESTS 
0 ABSTRACT: The SATSSS22 module tests the execution of the following 
VMS system services: 
0 SSETEXV 
0 SSETSFM 
SUNWIND 


ENVIRONMENT: User, Supervisor and Executive mode image. 
Needs CMKRNL pesky and dynamically acquires other 
privileges, as neede 
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SATSSS22 = SATS SYSTEM SERVICE TESTS (SUCE 5°C.) 16-SEP-1984 00:4 AX/VMS Macro V04- 2 
5015888 DECLARATIONS Breathe beskeis Lon hee caeseayecsoo mars: 2% 3, 


8 y -SBTTL DECLARATIONS 
0 > MACRO LIBRARY CALLS 
: : LIBRARY /SYS$LIBRARY:STARLET.MLB/ 
$CHF DEF 3; Condition handler frame definitions 
4 PRDEF processor register definitions 
5 SPRVDEF : Bel vaef nies definitions 
$ SPSLDEF ions 
SSFDEF ate definition 
S SSHR_MESSAGES UETP,116,<<TEXT, iniosss ; KUETP $ — Sdieition 
SSTSBEF STS definition 
Y : SUE TPDEF : UETP message definitions 
j : Equated symbols 
00000000 4 WARNING = 0 ; warning severity value f 
00000001 § SUCCESS = success er ee ly ae 
BRD pO NS $ ERROR = g : ve a ae 
0000000 INFO = : Taterantion be = sed sg 
00000004 3 SEVERE =4 ; fata = iia pol eh 
> MACROS 


~MACRO SEVT MODE,PRINT,?LAB1 
m ~-LIST ME 


The next section will declare 2 mode parent ren handlers. 
A primary and secondary handler will 
set using the SSETEXV_G system service. 


»NLIST ME 


LIST MEB 
CLRL R5 set init. handler type 
MOVL #PSLSC_"MODE, WASET+SETEXVS -ACMODE ; set access mode 


PUSHL #0 ; push dummy parameter 


LAB1: 


COOOOCCOCOSCOSOSOOOSOOOCOSOOSOOCOSOOOOSOOOOOOOOOOOOoOO 
be Se Dae) ne ae) ne) ee ww) ewe lw lola lo lola lola lolol aloe lol alololola la! 


DOOOCOCOSOOOSOSOOSOSOSOSOSOSOOSOSOOOSOOOOSOOOOOOOOOOOSOOoOO 
SOSOOCSCOCOSCOSOOOCSOSOSOSOOSOSOSOOOOOSOOSOOSOSOoOO 


| § “OOO DODOO0OO0 O00 OOO OOO 00900 09 09 09 09 09 09 09 09 SI NII NII INNIS OAAAAAAAOOUN 


PAN @ OOD NA NEW 9 ODNAMN EWN OOONOU SW O 


0 CALLS 1,W*REG_SAVE ; save register snapshot 

000 OVL R5S,W*SETFSETEXVS yecron 3; set vector type 

000 MOVAL WPRE ‘MODE PRI[RSJ,- 

000 1 W*SETFSETEXVS_PRVHND 3 set previous handler 

8 8 1 MOVL W*'MODE’ HANTABCR5S]J,- 
1 W*SET*SETEXVS_ADDRES ; set handler address 

4 1 Sse TeXy G W*SET ; declare the handler 

0 1 -IF IDN,PRINT,N 

0 ! FAIL_ CHECKNP SS$ NORMAL : check for success 

! . FAIL_CHECK SS$_NORMAL :; check for success 
1 LIST MEB 
1 INCL y uerent TC : sncropent Fase number 
1 AOBLEQ #1,R5,LABT : do al syees 

7 1 STEPESTEP SI” : bump the step # variable 

! LIST ME 


<y 


IF ION,PRINT,NO 
BSBW EXCEP_CHECKNP 


BSBW EXCEP_CHECK 3; check secondary handler 
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SATSSS22 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:48:27 VAX/VMS M 04- 
$045008 DECLARATIONS Bre EEi obs Sasdarts LORTPeS Macse YO=O8 wan. Page oF, 
115 ; 
118 ; An exception will now be caused to check the handlers. 
118 :- 
118 -NLIST ME 
120 -LIST MEB 
121 BISB2 + Solleatas 3; set excep. should occur 
1 ¢ CHMU # ; cause an exception 
00 1 BRB MODE * END ; go on 
000 124 MODE'_HANTAB: 
00 125 -ADDRESS MODE'_PRIM ; handler address table 
$ ! § , ADDRESS MODE'_SEC 
9009 : PRE_'MODE'_PRI: pea ———s 
0000 189 PRE_'MODE' SEC: ; previous handler table 
0000 } -LONG 0 
0000 (133° .LIST M 
BE ala ete 
0900 ; ; test the mode primary exception handler 
0000 138 ‘ .NLIST ME 
0000 140 -LIST MEB 
SEE > aaah: dagen 
0000 128 NEXT_TEST 
$609 128 oar mer NCB W°FLAG1 did 
0000 146 IF IDN,PRINT,NO star anaspes — 
a4 13f BSBW EXCEP_CHECKNP 
0000 4 ae BSBW EXCEP_CHECK ; check primary handler 
0000 151 : MOVL § #SS$_RESIGNAL,RO : and resignal 
9000 132 ECB UMFLAGI S reset ontep. Off Gceus 
$000 154 LIST ME 
0000 132 i+ 
09 139 > test the mode secondary handler and clean up the exception 
139 i 
160 -NLIST ME 
0 19) -LIST MEB 
0 1 § MODE’ _SEC: 
00 16 WORD 0 
164 NEXT_TEST 
165 -LIST MEB 
196 INCB W*FLAG1 3; set excep. did occur 
16 
183 
194 


-ENDC 


<w 


1 
Sots) ISTSEP=1986 Oa:30:12 EUETPSY.SREISATSSSoz.mar:1 28 cf) 


oz 


SATSSS22 M SERVICE TESTS (SUC 
vOu=080 


SUNWIND_S ; clean the stack 
MOVL ge CONTINUE ,RO : and resignal 
bine #3,W"FLAG1 ; clear excep. did & should FLAG! 


~LIST ME 


the mode Last chance handler can not be tested because 
it will always force an exit from the process. 


reset the mode primary handler 


.NLIST ME 
LIST MEB 
MODE" _END: 
NEXT_TEST 
LIST M 


SSETEXV_S #0,aW*PRE_"MODE'_PRI,#PSLSC_"MODE ; reset the handlers 
~1F ION,PRINT,N 
FAIL  CHECKNP SS$_NORMAL : check for success 


y FAIL_CHECK SS$_NORMAL 
-ENDC 
: -LIST ME 


: reset the mode secondary handler 


«NLIST ME 
-LIST MEB 
NEXT_TEST 
LIST MEB 
SSET ee S #1,aW*PRE_"MODE'_SEC,#PSLS$C_'MODE’ 
-I1F IDN,PRINT,N 
FAIL_ CHE CKNP SS$_NORMAL ; check for success 


an FAIL_CHECK SS$_NORMAL 
“ENDM SEVT 


SOOOOCCOSCOOSOSOSOSGOOOSOOOOCOSOOOOOCOOOSOOOOOOOOOOOCOO AM 
—— " DOOD DOOOOO0O0 00000 0000000000009 0909090909 SII NS 


MOOD NA NE WN  O OD NAME WW 0 ODNA NEW 0 OONAUEr 


PRIPINPIPOPINMYINPIPIPOINININPYIR) @ 
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SATSSS22 - SATS SYST AX/VMS Macro V04- Page 
5005888 DECLARATIONS SEP-19 Beye CRE SSAySSsoo MAR: ° 
0000 1 »PSECT RODATA,RD,NOWRT ,NOEXE,LONG 
1 TEST_MOD_NAME : 
32 32 53 53 53 54 41 53 9" 1 sASCIC /SATSSS22/ i; needed for SATSMS message 
8 18 TEST_MOD_NAME_D: 
53 53 53 54 41 53 tact Mig og: § +9 1 SASCIB /SATSSS22/ ; module name 
1 369 TEST_MOD_BEGIN: 
6E 75 67 65 62 0" } 1 sASCIC § /begun/ 
8 1F 336 TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 +e gt ~ASCIC /successful/ 
A 324 TEST_MOD_FAIL: 
64 65 6C 69 61 66 gy" , 5 ~ASCIC /failed/ 
1 $38 SETEXV: 
56 58 45 54 45 53 90" 3) ASCIC /SETEXV/ 
83 338 SETSFM: 
4D 46 53 54 45 53 82" 3 -ASCIC /SETSFM/ 
O3F $39 UNWIND: 
44 4E 49 57 4E 55 0" tH 31 »ASCIC /UNWIND/ 
3 046 332 CS1: 
4 $8 He R 63 ry BORO Sh OE 9000" Bee 3 -ASCID \Test !AC service name !AC step !UL failed.\ 
70 65 74 $3 20 (3 41 21 20 $3 D 61 0060 
2E 64 65 6C 69 61 66 20 4C 1 20 Bo 284 643) 
o $3 $5 4 43 $3 99099080" 9305 009 . 0 235 ; -ASCID \Expected '!AS = !XL received !AS = !XL\ 
41 21 $ 64 65 $0 4 65 83 é *3 g9 $8 
4C 58 21 20 3D 2 H ess, 
74 63 65 70 78 45 O90 "9108 9009" OA $35 ; -ASCID \Expected !AS!UB = 'XL received !AS!UB = !XL\ 
go 8 FE as oe £1 goa) oh 20s Sy ie 
58 21 20 $ $3 42 ee 21 : 41 21 $0 ce 
*¢ 8008 238 CS4: ; 
65 70 78 65 3 55 909 069"01060000" D $35 : -ASCID \Unexpected !AS mode exception occured in !AC step !UL.\ 
PCCECECLEEER: 
5 OE 85 fs 20 bs 3 TH Ss 0 oF 
PRP SRBRARNE 
77 20 65 64 6F 4D 0000011E'010E0000" 118 4 "  |ASCID «\Mode was !AS.\ 
a gueeerg'auoggoge’ Big AT 
72 69 75 71 65 5 ‘wihttt 10E0000° 01 3 38 : -ASCID \Required !AS mode exception did'nt occur in !AC step !UL.\ 
PESRE REDE He 
9 3 F 29 4 4 151 
gf 30 75 28 $5 $8 SF 20 Ze 6 3? fe Bis} 


SATS$S22 


- SA 
v04= 


DECLA 
2€ 4C 55 
72 65 73 75 00000174'010E0000' 
72 65 70 75 73 00000180'010E0000' 
74 75 63 65 78 65 wanton | og * | 


um 


16 
m SERVICE TESTS (ute $4¢.) SrSEb=19be Oass0ite LUetPeY.eReISATSSSo2.mAR: 1 


ow 
z- 


A 


-ASCID \user\ 
-ASCID \super\ 
-ASCID \executive\ 


nn Cc 
z= = 


xz 
=z 


6C 65 6E 72 65 6B 0000019E'010E0000" 
73 75 74 61 74 73 000001AC'010E0000" 

50 53 000001BA'010E0000" 
6E 72 75 74 65 72 ee a 


-ASCID \kernel\ 
-ASCID \status\ 
eASCID \SP\ 

eASCID \return PC\ 
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ARGLST 
00000001 «LONG 1 ; super mode setup arg List 
00000838" .ADDRESS SUPER_MODE 

MSGVEC: ; PUTMSG message vector 
ag -LONG 3 
00741133 -LONG UETPS_TEXT 
00000001 ‘ 
00000107" «ADDRESS MESSAGEL 
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S (SUCC S.C.) 16-SEP-1984 00:48:27 VAX/VMS Macro V04- Pa 7 
T ey 7 8:48:43 UETPSY. SRE ISAT SS Soo .MAR: 1 dD 
1€ of 3 
1 .SBTTL R/W PSECT 
0000 i -PSECT RWDATA,RD,WRT,NOEXE,LONG 
71 tPIp 
00000000 i -LONG 0 ; PID for this process 
4 273 CURRENT_TC: 
00000000 44 oe on". . = ; ptr to current test case 
008 £6 REG_SAVE_AREA: 
00000044 9 4 nop pee Enka 15 ; register save area 
00748009 aed hi THN appRiton® UETPS_SATSMS ; test module message code for putmsg 
00000000° O¢8 } MD ADDR ADRESS TEST_MOD_NAME 
00000019" o35 68 minal ADDRESS TEST_MOD_BEGIN 
00 if 85 " BYTE 0 ; protection return byte for SETPRT 
0051 86 PRIVMASK: 
00000000 00000000 a033 i fe cont tue 0 3 priv. mask 
00000000 099 89 pts .LONG 0 : change mode continue address 
00000065 05D 31 ea .BLKL 2 ; returned address’s from SETPRT 
00000000 063 38 ite " LONG 0 
00000000 069 98 ate .LONG 0 
doen 337 sti SSETEXV 0,0,0,0 3; SETEXV parameter List 
0081 +3 ae "-$SETSEM 0 ; SETSFM parameter List 
a089 a ave SUNWIND DEPTH,O ; UNWIND parameter List 
74 73 69 67 65 72 00000090 "910E 9000" 95 88 "  JASCID \register R\ 
ar 8 ry, 04 REGNUM: 
00000000 OA 05 prvunp1: "CONS 0 ; register number 
00000000 oy f nse ",LONG 0 3; previous handler address 
99000050 AF 09 "LONG 80 : buffer desc. 
* 0083 p -ADDRESS BUF 
0B7 11 BUF: 
00000107 g 1 messaceuree’® 80 
90000000 107 314 .LONG 0 ; message desc. 
00000087" 01 15 .ADDRESS BUF 
10F 18 SERV_NAME : 
00000000 9e } ute 0 3 service name pointer 
$008 4 113 15 "LONG = 4 ; PUTMSGS message vector for exit 
p 11 0 LONG 
9000 118 1 LONG 
1 11F 2 BLKL 


i 2 - SATS SYSTEM SERVICE TESTS aa Ba $.C.) 16-SEP-1984 00:48:27 VAX/VMS Macro v04- Page 
bas686 R/W PSECT g-§ SEP=1984 39: 98:95 LOE TP ey cee IGA yeSSoo MAR: 1 . dy 
3 FLAG): ; flag byte 
; 4 seTTE 6 3 eitd = exception did'nt occur | 
8 5 ; BITO = 1 exception occured 
8 ; BIT1 = 0 exception should'nt have occured 
t eerie: ; BIT1 = 1 exception should have occured 
00000001 9 «LONG 1 3; unwind depth indicator 


VO4=000. 
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1982 0:45:43 y SREISATSSS 22 .MARS 1 “ss (1) 
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UPS Bs BS BS ES ES BB NINN NII 
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Be Se Ge Ge Ge Ge Ge Ge Se Be Se Ge Be Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Be Se Ge Sse Ge Be Se Se Ge Ge Se Ge Se Be Se Se Se Se Sete 


=SEP- 


«PSECT SATSSS¢6 -AD-URT EXE .LONG 
-SBTTL SATSSS 


UETPS 


+ 
; FUNCTIONAL DESCRIPTION: 


After performing some initial housekeeping, such as 


: hg hs, the module begin message and nora needed privileges, 
; the syste 
; Detected failures are identified and an error message is printed 


m services are tested in each of their normal conditions. 


on the terminal. Upon completion of the test a success or fail 


; message is printed on the terminal. 


CALLING SEQUENCE: 
$ RUN SATSSS22. ... (DCL COMMAND) 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSS22. 
They are of the form: 


ZUETP=S-SATSMS, TES 

ZUETP=S-SATSMS, TES 

ZUETP=E-SATSMS, TES 

RUETP-I-TEXT, ... ( 
COMPLETION CODES: 


The SATSSS22 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 
none 


T ee 
T MODULE SATSSS22 SUCCESSFUL ... (END MSG) 
u MODULE SATSSS2é2 FAI E 


MODULE SATSS598 BEGUN ... (BEGIN MSG) | 
AILED ... (END MSG) 
ARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


TEST_START SATSSS22 ; let the test begin 


VO4=000. 
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3 Breer 18bs Bedoes POEtSS cee sSaletsoo.mans1 “20e 19, 
ENTRY SATSSS22. 0 
cLR “CURRENT_TC 
PUSHL #0 
PUSHAL W*TPID 
CALLS #8; ,G*SYSSWAKE 
CALLS G*SYSSHIBER 
PUSHAQ W*fEST MOD NAME _D 
CALLS —#1,G*SYS SETPRN 
BSBW u"hop MSG 
MOVAL y TEST_M psu TMD_ADDR 
INSV. #f Yecess. O70 W*MOD_MSG_CODE 
PUSHL # 
CALLS #1,W*REG_SAVE 

STPO: 


-SBTTL SETEXV TESTS 


: SSETEXV tests 
: test user mode 


SCMKRNL_S W*SETUP_SUPER,W*ARGLST declare CHMS handler 


ADDL2 “SOME XESC _UMSTKS2+16,SP : fix the user stackpointer 

MOVL P 3; and user framepointer 
CALLS 70 * W*ERLBUF _DUMP ; dump any errors that occured at ke 
MOVAL WSETEXY W*SERV_NAME ; set service name 
MOVAL W*UM W°MdDE 3; set the mode 

SEVT USER ; do the user mode tests 


fi 


: The next section will declare 2 USER exception handlers. 
; A primary and secondary handler will be 
; set using the SSETEXV_G system service. 


CLRL R5 t init. handler type 
300008 MOVL #PSLSC_USER, WASET+seTEXvé_ ACHODE ; set access USER 

PUSHL a 3 push dummy parameter 

CALLS 1,W*REG_SAVE 3 save register snapshot 

OVL RS aH MLE YECTOR 3; set vector type 

MOVAL WPRE_USER R EPRI RS - 

OVL W*USER_H R5),- 

CALLG asi "ON SYSSCETEXY 

PUSHL S$$_NORMAL 

CALLS WOREG ss ae 

INCL U-CURReNT 3; increment step number 

Last ee #1,R5 H000$ ; do all 1 types 


: An exception will now be caused to check the handlers. 


sah? ; 
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~SEP=1984 
B1SB2 og PLAST 
CHMU i 
3RB USER_END 


USER_HANTAB: 


«ADDRESS USER_PRIM 
-ADDRESS USER_SEC 


PRE_USER_PRI: 


Pp 


S 


«LONG 0 
RE_USER_SEC: 
-LONG 0 
LIST ME 
test the USER primary exception handler 
SER_PRIM: 
~ WORD 0 
«LIST ME 
TP: 
MOVL #2,W*CURRENT_TC 
PUSHL a 
CALLS #1,W*REG_SAVE 
INCB. OWS FLAGI 
BSBW EXCEP_CHECK 
MOVL ass RESTGNAL, RO 
DECB FLAG1 
RET 
«LIST ME 


«WORD 0 

.LIST ME 

TP3: 

MOVL § #3,W*CURRENT_TC 
PUSHL #0 
CALLS #1,W*REG_SAVE 
INCB = W*FLAGI 
SBW EXCEP. CHECK 
PUSHL 
PUSHL 
CALLS “SYSSUNWIND 
OVL HO CONT INUE RO 
BICB2 
RET 

.LIST ME 


AX/VMS Macro V04- 399. 
UETPSY.SRCJSATSSS22.MAR; 1 


set excep. should occur 
cause an exception 
go on 


handler address table 


previous handler table 


set excep. did occur 
check primary handler 
and resignal 

reset excep. did occur 


set excep. did occur 
check secondary handler 


and resignal 


clear excep. did & should FLAG! 


the USER Last chance handler can not be tested because 


it will always force an exit from the process. 


reset the USER primary handler 


“ee 
ae 


si? sf 


0004'CF 4 00 

0 dD 

096E ‘CF 1 FB 

9 DD 

DD 

FF96 DF ODF 

0 oD 

00000000 ' GF 4 FB 
QO000000"8F DD 
0978'CF O01 FB 
0004'CF 05 DO 

00 oD 

O96E'CF O01 FB 

00 oD 

03 oD 

FF72 DF OOF 

01 DD 

00000000 ' GF 4 FB 
Q0000000'8F odD 


O978'CF O01 FB 


0004"CF 06 00 
DD 


O96E'CF O01 FB 
0069"CF 0178' f DE 


BE 
00000008 


0004'CF 06 DO 
0 oo 
096E 'CF  . 


SOOCCOOCOOCOOOCOOSOOOOOOSOSOOOSOOOOOOOCOOSOOCOOODOOOOOOOOOSCOOOOOCOOO0O 


a ee ee ee ee ee ec et ec ce el ee ce ce ce ee ee ec ee ee ee ee ee ee ee ee ee ee ee ee ee a ed ed ed 


USER_END: 
“LIST ME 
STP4: 


STPS: 


«LIST ME 


NEXT_TEST 


STP6: 
MOVL 
PUSHL 


CALLS 
MOVAL W*SM,W*MOD 


CHM 
STEP=STEP+5 


3; test exec mode 


NEXT_TEST 
STP12: 
MOVL 
PUSHL 
CALLS 
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UETPSY.SRC 


4 ,W*CURRENT.TC 
#1 ,W*REG_SAVE 
#0 


#PSLSC_USER 
ay*PRE_USER, PRI 


#4 G*SYS$SETEXV 
#S§$_NORMA 
#1 ,W*REG_CHECK 


reset the USER secondary handler 


#5 ,W*CURRENT.TC 
#1 ,W*REG_SAVE 
#0 

#PSLSC_USER 
au“PRE_USER_SEC 
#4, G*SYSSSETEXV 


#S$$_NORMAL 
#1 ,W*REG_CHECK 


46 ,W*CURRENT_TC 
#1,W*REG_SAVE 


E ; set the mode 
; do the super mode tests 


#12,W*CURRENT.TC 
#1 ,W*REG_SAVE 


—MN 


SATSSS22 4 
y0us006 SE 
Q069'CF O185'CF ODE 
33 D4 
0079'CF 1 00 
00 oD 
Q96E CF Q FB 
0071'°CF 5 00 
OO7D°CF  OIFO'CF4S pF 
QOO75°CF O1E8'CF45 OD 
QOO00000'GF O06D'CF FA 
Q00000000'"8F oD 
ODA7'CF O01 FB 
QO04'CF D 
C855 O01 F 
O127'CF O02 8 
00 8B 
mo 
000001F 
0000021 
00000000 
00000000 
0000 
0004*CF 0 dO 
DD 
096E ‘CF FB 


01 o7'er 3 
sonoee i : 


AW 
m> 
=< 


CSOOOOOOOOOCOCOCOOOOCOOSOSOO COCO OSSOSSCOCOOCOCOCOCOCOOOOOOCOCOOGOOOOOOCOOOOoOoOOoO <M 


“soo —"oO 


DP OOOO OOO FS FOOT WOO LT FF NII O WD WIT ON NNVOQOOCOCOOCOCOOOWnN 


-—OOooo™ 
+oro—"> 
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415 


AX/VMS Macro V 


48:95 


SE 


MOVAL B10, wW*MOD ; set the mode 
MODE TO, BI exec, NOREGS ; get mode to exec 
3; do the exec mode tests 
s¢ 
3; The next section will declare 2 EXEC exception handlers. 
; A primary and secondary handler will be 
; set using the SSETEXV_G system service. 
CLRL R5 t init. handler type 
300028 MOVL PPSLSC EXEC, WASET+SETEXvS. ACMODE 3; set access EXEC 
PUSHL rs ; push dummy parameter 
CALLS 1,W*REG_SAVE 3 save register snapshot 
MOVL RS *WASETSSETEXVS VECTOR ; set vector type 
MOVAL WPRE EXEC PRILRS,~ 
OVL wre HANTABLRSJ,=- 
CALLG W*SET,G*SYSSSETEXV 
PUSHL ass NORMAL 
CALLS 1 TRG. CHECKNP 
INCL OA CUR T_TC ; increment step number 
cues ng Ones #1 RS mT: 3; do all 1 types 


An exception will now 


Sete Ge Ge te 


BISB2 
CHMU 
BRB 
EXEC_HANTAB: 
ADDRESS 
ADDRESS 
PRE_EXEC_PRI: 
. LONG 
PRE_EXEC_SEC: 
. LONG 
LIST ME 


; test the EXEC primary 
EXEC_PRIM: 


STP14: 


be caused to check the handlers. 


#2,W*FLAG1 ; set excep. should occur 
# ; cause an exception 
EXEC_END ; go on 
EXEC_PRIM ; handler address table 
EXEC_SEC 
0 ; previous handler table 
0 


exception handler 


0 


#14 ,W*CURRENT_TC 
#1 W'REG_SAVE 
W*FLAG 


3; set excep. did occur 
tig CHECKNP 
#Ss RESIGNAL .RO ; and resignal 
W*FLAG 


3 reset excep. did occur 


4-00 Page 13 
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SOL S886 SETEXV STS oe eae Es 0:98:95 UETPS Y.SR atthe MAR; 1 = (1). 
04 RET 
-LIST ME 
; test the EXEC secondary handler and clean up the exception 
EXEC_SEC: 
0000 ~WORD 0 
LIST ME 
STP15: 
0004'CF F oO MOVL #15,W*°CURRENT_TC 
DD PUSHL @# 
O96E'CF 01 FB CALLS # W*REG_SAVE 
0127 nt 96 INCB af ; set excep. did occur 
30 BSBW EXCEP_CHECKNP 
DD PUSHL #0” 
09 DD PUSHE ay 
00000000 ' GF SF FB CALLS # BE er 
50 909990000" D0 MOVL  #SS$_CONTINUE,RO ; and resignal 
a Bise #3, Saf ON G1 3 clear excep. did & should FLAG1 
~LIST ME 


; the EXEC Last chance handler can not be tested because 
; it will always force an exit from the process. 


; reset the EXEC primary handler 


a _END: 
SLIST ME 
STP16: 
0004"CF 10 00 MOVL #16,W°CURRENT_TC 
00 ODD PUSHL # 
O96E'CF O01 FB CALLS #1,W*REG_SAVE 
00 ODD PUSHL #0- 
01 OD PUSHL  #PSLSC_EXEC 
FF96 DF ODF PUSHAL a@W*PRE-EXEC_PRI 
00 OD PUSHL #0 
00000000'GF 04 FB CALLS #4 G*SYSSSETEXV 
00990000" a DD PUSHL  #SS$ 


ODA7' CF FB CALLS #1 UFNcG. CHE CKNP 


s¢ 
: reset the EXEC secondary handler 


OD MGM MMMM MMM OWE SALUT DOAAOCAAAAOOAAOMOONVNOMMNVODWBIDOOOOOOOOM m~< 


SINNED DDD DED DET BB BB BB PPE EE PWIND 2 SS OO et 


SOOOOOCOOCSOOOCOSOSOSOOSOCOSOOOSOOOOOSCOSOOOCOSCOOSOOOOOOCOOOOCOOOOOOOOOOOO 


RAPP IPP PIPPI PIPYNIPININIPIPININPIPINININIPYAINPYINAINIPINININIPYDIPYPINIPINIPINIPOPYPOPIPPIPOPINPOPIPIPPOPUNNYD 


LIST ME 
STP17: 
0004'CF 11 00 MOVL #17,W*CURRENT_TC 
0 oD PUSHL 
O096E 'CF 1 FB CALLS #1,W*REG_SAVE 
0 oD PUSHL 
: @ PUSHL #PSLSC_EXEC 
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SETEXV TESTS mets 90:98:95 DE TPS RET SAY SSS oD MAR: 1 . 
FF72 DF DF 7 PUSHAL a@W*PRE_EXEC_SEC 
1 DD PUSHL & 
00000000 ' GF 4 FB CALLS #4 PF erssee rene 
00000000'8F DD B PUSHL #S$$_NORMAL 
ODA7'CF 1 FB 4 41 nove paths #1 ,W*REG_CHECKNP sost ‘ 
3; back to user mode 
OE41'CF O00 FB 3 a1? CALLS #0,W4ERLBUF _DUMP ; dump any errors 
9C «6419; 
8 9C 420 ; test kernel mode 
9C 421; 
8 9¢ 64 ; :- 
9 4 NEXT_TEST 
029C 
029C STP18: 
0004'CF 12 DO 029C¢ MOVL #18,W*CURRENT_TC 
00 DD O2Ai PUSHL # 
O96E "CF 01 FB Q2A3 CALLS #1,W*REG_SAVE 
0069'CF 0196'CF DE O2AB 424 MOVAL  W*KM,W*MODE ; set the mode 
beat $82 MODE T0,C10,KRNL,NOREGS 3 get into kernal mode 
oecc 426 SEVT ‘KERNEL,NO, : do the kernal mode tests 
cee 
$see ; The next section will declare 2 KERNEL exception handlers. 
O2cc ; A primary and secondary handler will be 
Bsce ; set using the S$SETEXV_G system service. 
O2cC :- 
55 D4 O2CC CLRL R5 ; set init. handler type 
0079'CF 00 dO psce 300058 MOVL #PSLSC_KERNEL,W*SET+SETEXVS_ACMODE ; set access KERNEL 
00 odD 02d3 PUSHL #0 ; push dummy parameter 
O96E'CF 01 FB §g02 CALLS #1,W*REG_SAVE 3 save register snapshot 
0071'°CF 55 DO O2DA MOVL RS,W*SETFSETEXV$S_VECTOR ; set vector type 
OO7D'CF O31C'CF45 DE O2DF MOVAL WAPRE KERNEL PRITRSJ,- 
OO75'CF O0314°CF45 D0 O02E7 MOVL W*KERREL J,- 
00000000 ' GF 006D° CF FA O2EF CALLG wees nGasyeeoe re 
00000000 ' aF DD O2F8 PUSHL aS NORMAL 
ODA7'CF 01 FB O A; CALLS #1,W*REG_CHECKNP 
0004'CF D6 030 INCL ws CURRENT TC : increment step number 
c8 55 01 F3 0307 AOBLEQ #1,R5,30005$ : do all 1 types 
0308 -LIST ME 
Re 3; An exception will now be caused to check the handlers. 
0127"CF 02 88 BISB2 #2,W*FLAG1 3 set excep. should occur 
9? oF 1 CHMU # 3; cause an exception 
E 1 1 BRB KERNEL_END ; go on 
14 KERNEL _HANTAB: 
000324' 0314 -ADDRESS KERNEL_PRIM ; handler address table 
0000345' 18 ADDRESS KERNEL_SEC 
1C PRE_KERNEL_PRI: 
00000000 1¢ -LONG 0 ; previous handler table 
20 PRE_KERNEL_SEC: 


Cel 
_—W 
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9042000 SETEXV TESTS green 8Be bossasts LOENRS SReieaYessoo.marn:1 2% 
00000000 .LONG 0 
LLIST ME 


:+ 
test the KERNEL primary exception handler 


ol 


ERNEL_PRIM: 
0000 -WORD 0 
LIST ME 
STP20: 
0004 'CF 14 dO MOVL #20,W*CURRENT_TC 
00 oD PUSHL # 
O96E'CF O01 FB CALLS #1,W*REG_SAVE 
0127°CF 96 INCB W°FLAGI ; set excep. did occur 
OCBA 30 BSBW EXCEP_CHECKNP 
50 00000000'8F D0 MOVL asss RESIGNAL ,RO ; and resignal 
Ol27°CF 8697 DECB FLAG 3 reset excep. did occur 
04 RET 
LIST ME 
; test the KERNEL secondary handler and clean up the exception 
KERNEL_SEC: 
0000 -WORD 0 
LIST ME 
STP21: 
0004'CF 15 pd MOVL eel -W*CURRENT_TC 
DD PUSHL 


O96E'CF 01 FB CALLS #1,W*REG_SAVE 
0127 CF 96 W*FLAG] ~ 


INCB 3 set excep. did occur 
eed ence. CHECKNP 


00 dD 
00 oD PUSHL #0 
00000000'GF 02 FB CALLS #2 §*SYSSUNUIND 
50 00000000°8F 00 MOVL  #SS$_CONTINUE,RO ; and resignal 
0127'CF 03 Ba bites #3,W™FLAG1 3; clear excep. did & should FLAG! 
.LIST ME 


the KERNEL Last chance handler can not be tested because 
it will always force an exit from the process. 


reset the KERNEL primary handler 


DANIAN SSNS SSS SSN SNA DS IT BB BB BE BPE EEE EWI PPofoefrononrofporonrnn —H 
SMO NPP IPININPINIPIPIPIMIAININ) @ 9 VITO BD NATO NN NUM EO OPN DOODLES LESSEE SO Mm 


WA.A.AAA AANA WIAA AI IWIN AIA WI AIAN WWII WWI AIA IWIN AIA AWAAIAIW AAW ANWIWI 


SOOO COOCOCOCOOCOCOOCOSOCSOCOO COCO OOOOOCOCOCSOOOCOCOOOOOOOOOoO 


KERNEL ~END 
LIST ME 
STP22: 
0004'CF 16 00 MOVL #22,W*CURRENT_TC 
0 od PUSHL 
096E ‘CF : 73 CALLS #1,W*REG_SAVE 
DD PUSHL 
DD PUSHL #PSLSC_KERNEL 


“~ 
-—o 


SATSSS22 
v04-000 


FF96 f 
00000000 ' GF i 
00000000 ' 8F 

QDA7*CF 01 


0004 'CF 
096E 'CF 


00000000 ' GF 
0000000 
ODA7'CF 


OE41'CF 00 


oO 


+ 


non 
om 


WMI NOMPO—"PPrrrrrrrruUI™o@on m-~< 
Oo 
=F 
; ae 
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M SERVICE TESTS (suce sie.) .m SEP=-1984 2 Be! $8: ef 


~SEP=1984 
Le KERNEL _PRI 
ecte pogeit 
ni WFREG. CHE CKNP 


; reset the KERNEL secondary handler 


#23,W*CURRENT_TC 
#1 .WREG_ SAVE 


#PSLSC_KERNEL 
oy"PRE_ KERNEL _SEC 


ft .G*SYSSSETEXV 
nh aRREC CHECKNP 


aa 
OM,C1 
"0. W*ERLBUF _DUMP 


$3599. MAR; 1 oo t) 


; back to user mode 
; dump any errors 
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$045000 SETSFM TESTS ~$Fb 1 382 ee ES LOE PSY. sae dSAySSSoo MARS 1 ° 1) 
C 430 -SBTTL SETSFM TESTS 
re 
cB 4 : SSETSFM tests 
C 435 ; test _S disable mode 
cB a3e : 
3 cB 8° NEXT_TEST 
6 C STP24: 
0004'CF 18 v0 O3¢8 MOVL #34 ,W*CURRENT_TC | 
O96E ‘CF 01 FB 8 CF CALLS #1,W*REG_SAVE 
0069" CF O16c Cr DE 0304 439 MOVAL W*UM,W*MODE ; set mode 
Ors ‘CF 94 Q3DB 440 CLRB W*FLA ; clear flag bits 
O1OF'CF QO38'CF DE O3DF 441 MOVAL W*SETSFM,W*SERV_NAME 3; set service name 
6D O40E'CF DE O3E6 +26 MOVAL  W*NOT_ENABLED, (FP) 3; set handler address 
OSES 44 SSETSFM_S ; disable failure mode 
O3F4 444 FAIL_CHECK SS$_WASCLR ; check success 
00000000 ' 8F DD O3F4 PUSHL #SS$_WASCLR 
0978'CF 01 FB Bere 445 CALLS #1,W*REG_CHECK 
tad as : make sure that it’s really disabled by forcing an error 
O3FF 448 * SCLREF_S #2000 : force an error 
08 11 ees +33 ee Suen ke A10 ; if you got here we're OK 
0000 040E 451 y WORD 0 ; enter here if illegally enabled 
OF4F'CF O00 FB 0410 re CALLS #0,Ww*EXCEP_FAIL ; print a failure message 
04 0415 45 RET 3 go on 
0416 454 A10: 
gig tae 
0416 457; test _S & enable 
Oci6 459: 
Oc 460 ° NEXT_TEST 
8616 STP25 
0004 'CF i? pe Beis ah #25,W*CURRENT_TC 
096E 'CF 01 FB 1D CALLS #1,W*REG_SAVE 
6D O45A'CF DE 04 § 461 MOVAL W*ENABLED, (FP) ; set the handler address 
4 736 SSETSF #1 ; test _S & enable mode 
430 46 FAIL_CHECK SS$_WASCLR > check success 
00000000'8F DD 0430 PUSHL ~ #SS$_ WASCLR 
0978'CF 01 FB : ; 466 CALLS #1,W*REG_ CHECK 
" : 232 ; make sure that its really enabled by forcing an error 
0127°CF O02 88 0438 169 ‘ BISB2 #2,W*FLAG1 3 set expecting exception flag 
440 $08 SCLREF_S #2000 ; force an error 
2E 0127'°CF 00 E44 044 ¢ BBSC #0,W*FLAG1,A30 3; check the exception flag and clear it if s 
OF4F'CF 38 FB 433 470 CALLS Ht W*EXCEP_FAIL 3; print exception failure if not set 
11 0658 471 BRB A36 3; get to the next test 
045A 472 ENABLED: 
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5005885 SETSFM TESTS iets Pan 4: 3 LUETPSY. ORE ae Aye esos MAR; 1 ° (1) 
han 009% teh 473 -WORD “M<R2> enter here if OK 
“Te 7'CF 6 04 f 474 INCB W*FLAG1 : set exception occured flag 
sb as DO 046 475 MOVL CHF SL_MCHARGLST (AP) oR2 3; get mechanism array pointer 
CA 01 464 228 CMPL CHF$L-MCH_SAVRO(R2), 
00000000 ' 8F 0467 47 e358. ILLEFC ; is this the right error? 
i; 1% 646C 478 BEQL A : br if OK 
OC Ae 00 O4ge 479 PUSHL CHFSL acH pSAVROCR2) ; push received 
00000000'8F DL 047 480 PUSHL  #SS$ $ TLL 3 push expected 
OIA4'CF DF 0477 481 PUSHAL 3 push String variable 
OE7E'CF O03 FB Boze ; ¢ A20 CALLS ‘ae ; print the failure 
04 ac80 484 RET 3 carry on 
481 485 A30: 
Q127°CF 01 BA 0481 286 BICB2 #1,W*FLAG1 ; clear exception occured flag 
0486 487; ‘ 
0486 488 ; 
0486 489 ; test _G disable mode 
0486 490; 
0486 491 :- 
0486 492 NEXT_TEST 
0486 
0486 STP26 
0004'CF 1A DO 0486 MOVL #36. »W*CURRENT_TC 
00 ODD 0488 PUSHL 
O96E'CF 01 #=FB 048D CALLS #1,W*REG_SAVE 
6D O4BF'CF DE 0492 493 MOVAL W*“NOT -ENABLED!, (FP) 3 set handler asrens 
0497 494 SSETSFM T ; test _G & disable 
04A0 495 FAIL =CHECK SS$_WASSET ; check for success 
9990000" 8F DD O04A0 PUSHL Witt WASSET 
0978'C 01 FB 0O4A6 CALLS 8] »W*REG_ CHECK 
04AB 496 ; 
re rh 44 ; make sure that it really is disabled by forcing an error 
0127'CF O02 8A Q4AB 499 BICB2 #2,W*FLAG1 ; clear expecting exception flag 
0480 500 SCLREF_S 4ig0 000 : force an error 
08 11 O4B8D He :; if we got here we're OK 
O4BF 5 ¢ NOT name tt 
0000 O4B8F 50 0 ; enter here if illegally enabled 
OF4F'CF O00 FB OQ4C1 504 CALLS #0,W*EXCEP_FAIL ; print exception failure message 
04 04C6 505 RET 3 carry on 
04C7 506 A4O: 
0407 507; 
0407 508; 
4C7 4 ; test _G & enable mode 
4C7 Ez 
4C7 11 :- 
4c? 512 NEXT_TEST 
4C7 
4C7 STP27: 
0004'CF 1B D0 04C7 MOVL if -W*CURRENT_TC 
00 DD 4CC PUSHL 
O96E *CF 01 FB OQO4C CALLS #1 oy nes SAVE 
6D OF AF DE 04D 513 Poa, B*ENABLED1, (FP 3 set handler address 
0085'CF 06 0407 514 NCL USETTSSETSERS, ENBFLG ; set mode to enable 
4DB $12 SETSFM_G W*SET1 ; test _G & enable 
4E4 16 FAIL. CHECK $3 _WASCLR 3 check’ success 
00000000'8F DD O4E4 #SS$_WASCLR 
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Vv04-00 SETSFM TESTS “SEP-1984 04:30:12 (CUETPSY.SRCISATSSS22.MAR; 1 (1) | 
0978'CF O01 FB 4EA 7 CALLS #1,W*REG_CHECK 
rt} 13 ; make sure it's enabled by forcing an error | 
0127°CF O02 88 OQ4EF 0 BISB2 we sHoneAst i set expecting exception flag 
4F4 1 Scher 5° ; force an erro 
2E 0127°CF 00 £4 Q501 ¢ BSC 2000 Ast ,A60 ; br if OK and clear the wtae 9 
OFGF°CF OO FB 0507 CALLS r0 “al EXCER’ FAIL ; otherwise print exception ail message 
ery. Bane 324 BRB ; bad news if you got here 
Q50E 2 5 ENABLED1: 
0004 B208 6 «WORD “M<R2> ; if you are here we're OK 
sa 9: 96 B21 7 INCB W*FLAG1 3 set exception occured flag 
52 8 AC 900 0514 8 MOVL CHFSL =ACHARGL ST AP) oR2 3; get mechanism array pointer 
OC A2 Di Baie 9 CMPL cue $L-MCH_SAVRO{R2), 
00000000 ' 8F 51B 530 #SS$_TLLEFC : is it the right error message 
1s 6 Va Been. Sa BEQL A ; br if goo 
OC A2 DD O05 g 235 PUSHL CHFS$L_MCH SAVRO(R2) 3; push received 
00000000'8F ODD O° 53 PUSHL #SS$_TLLEFC 3 set expected 
O1A4'CF DF 0528 534 PUSHAL W* 3; set string variable 
OE7E'CF 03 FB bage 232 ASO CALLS #3,W*PRINT_FAIL ; print the failure 
04 0534 537 RET 3 carry on 
0535 538 A60: 
0127°CF O01 8A 0535 539 BICB2 #1,W*FLAG1 ; clear exception occured flag 
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5005888 UNWIND TESTS maar Ti 30:98:95 UE They Cae ISAY SES oS. MAR: 1 @) 
S3A 41 .SBTTL UNWIND TESTS 
SSA A : 
53A 45; 
53A 44 ; SUNWIND tests 
535A 45; 
535A 4g ; test level 1 _S 
53A 47; 
53A 48 ;- 
QO53A 549 NEXT_TEST 
QO53A 
053A STP28: 
0004 'CF 1¢ 00 O53A MOVL Zee CURRENT TE 
00 DD O53F PUSHL # 
O96E'CF 01 FB 827) CALLS #1,W*REG_SAVE 
OO069'CF OQO16C'CF DE 0546 550 MOVAL W*UM,W* 3; set the mode 
O10F'CF QO3F'CF DE Q54D 551 MOVAL W*UNWIND,W*SERV_NAME 3; set service name 
OFDA'CF 5E DO 0554 226 MOVL Funan’ 3; save the stack pointer 
OFDA'CF 04 C2 0559 55 SUBL2 #4,W*WORK ; compensate for BSBW PC+2 word 
62°AF O00 FB 055 554 CALLS #0,8°10$ 3 put a call frame on the stack 
056 555 10$: 
0000 056 556 «WORD 0 
6D 6A°AF DE 0564 £557 MOVAL B*20$,(FP) 3 set the handler address 
BF 0568 558 CHMU #0 3 cause an exception 
056A 559 208: 
0004 056A 560 «WORD “M<R2> 
52. 04 AC 00 b296 561 MOVL B“CHFSL_SIGARGLST(AP) ,R2 ; get signal array address 
04 A2 Q0000000'8F D1 057 266 CMPL #SS$_UNQIND,B*CHFSL_SIG_NAM (R2) ; check the signal name 
25 13 0578 56 BEQL 258 ; br if its an unwind signal 
00 DD O57A 564 PUSHL #0 3; push dummy parameter 
O96E'CF O01 FB O57C £565 CALLS #1,W*REG_SAVE 3; Save a vopteter snapshot 
0581 566 SUNWIND_S DEPADR=DEPTH,NEWPC=30$ ; try level 1 _S 
0594 567 FAIL_CHECK SS$_NORMAL 3 check success 
00000000 ' 8F DD 0594 PUSHL #SS$_NORMAL 
0978'CF 01 FB O59A CALLS #1,W*REG_CHECK 
O59F 568 25$: 
50 Q00000000'8F DO O59F 569 MOVL #SS$_CONTINUE ,RO ; signal a continue 
04 Q5A6 570 RET ; do your magic now 
O5A7 = 571 308: 
0A34 30 O5A7 276 BSBW W*STACK_CHECK ; check the stack 
OSAA 573 ;+ 
OSAA 574 ; 
O5SAA 575 ; test level 1 _G 
OSAA 576 ; 
oy eof i- 
SAA 78 NEXT_TEST 
O5SAA 
OSAA STP29: 
0004 ‘CF 1D DO OQS5AA MOVL Sah CURRENT TE 
DD OSAF PUSHL # 
096E ‘CF 1 FB 0581 CALS #1,W*REG SAVE 
00000091'"EF O3°AF ODE 0586 579 MOVAL B*50$ YNUSUNUINDS _NEWPC ; set new PC 
C2°AF 00 FB O39 9 108 CALLS #0,B*10$ 3 put a call frame on the stack 
0000 0O5C¢ ¢ «WORD 0 
6D CA'AF DE Q5C4 MOVAL B*20$,(FP) ; set the handler address 
0 BF ecé of 208 CHMU #0 3 cause an exception 
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$042000 UNWIND TESTS ~SEen 198s baskets LOetber eae isAyeesoo.mar:1 29° 3, vo 
52. 04 AC “a nid 3 : hove anc a SIGARGLST(AP) ,R2 t signal dd 
et signal array address 
0% a2 00000000'8F 355 3 CHPL #SS$_UNGIND B°CHFSL, SIG “NAME(R2) ¢ check the signal name 
1 13 05D y BE 2 br if its an unwind signal 
0091'CF O3°AF DE SDA 90 work eg BO OS ,W*UNW+UNWINDS_ NEWPE ; ; set the return PC 
00 DD Q5€0 591 PUSHL ; push a dummy parameter 
O96E'CF O01 FB 25s 35 CALLS Ht ay REG. SAVE ; save a register snapshot | 
OSE 9 SUNWIND_G W*UNW ; try level 1 
Bore 94 FAIL. CHECK SS$_N 3; check for success 
00000000" 8F DD O5F PUSHL wie NORMA 
0978'CF 01 FB Te 95 258: CALLS #1 »W*REG_ CHECK 
50 00000000'8F 00 ais 336 ; MOVL #SS$_CONTINUE,RO ; signal a continue 
04 0603 44 308: RET ; do your magic now 
0908 30 060 235 BSBwW W*STACK_CHECK 3; check the stack 
Oe0e 801 i 
0606 60¢ ; test level 2 _S 
ae 
9606 605 ° NEXT_TEST 
0606 STP30: 
0004'CF 3 3 bcos ate 950 .UOCURRENT _TC 
O96E ‘CF 01 FB 0600 CALLS #1 ,W*REG_SAVE 
0128'CF 02 DO 0612 606 MOVL #2,W*DEPTH 3 set the depth 
1B' 00 FB 0617 607 CALLS #0,B*5$ 3 put a call frame on the stack 
0000 geiB Sop woRD 0 
21'AF 600.—=SO#FB 961D 610 ‘on CALLS  #0,B°10$ : put a call frame on the stack 
0000 8651 61g "WORD 0 
$D 29'AF DE 0623 61 MOVAL ®B*20$,(FP) ; set the handler address 
BF b05% ei% 20$ CHMU #0 3 cause an exception 
0004 $59 616 — .WORD “HcR2> 
52 04 DO 062B 617 MOVL B“CHFS$L_SIGARGLST(AP),R2 ; get signal array address 
04 A2 00000000' BF D1 be F 618 CMPL #SS$_U NQIND, B*CHFSL_SIG_NAME(R2) ; check the signal name 
25 13 0637 619 BEQL 258 ~ : br if its an unwind signal 
00 DD 0639 620 PUSHL #0 : push a cunay parameter 
O96E'CF O01 FB 063B 621 CALLS #1,W*REG_SAVE ave a Se snapshot 
B88 6 § SUNWIND_S DEADRE “DEPTH. NEWPC= 30$'; oe leve 
65 6 FAIL_C cHEC a NORMAL : check success 
00000000" 8F DD 065 ~ #SS$_NORMA 
0978'CF 01 FB beee 624 25$ atte: #1,W"REG_ CHECK 
50  00000000'8F 00 O25 op , MOVL #SS$_CONTINUE ,RO ; signal a continue 
O* beee eor sos: 
0975 30 0666 628 | BSBW  wW*STACK_CHECK ; check the stack | 
rs 
669 6 ° $ test Level 2 .G 
669 6 ; : 
669 635 ;:- 
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$69 634 NEXT_TEST 
689 STP31: | 
0004 'CF iF dO 9 MOVL #31,W*CURRENT_TC 
DD 8 PUSHL # | 
O96E "CF 1 FB 06 CALLS #1,W*REG_ SAVE 
OO91'CF C6'AF DE 067 $39 MOVAL B*30$,W*UNW+UNWINDS_NEWPC ; set the new PC 
7F'AF 600) =6FB o7e ? $ $$ CALLS #0,B°5$ ; put a stack frame on the stack 
0000 067F e38 «WORD 0 
8S5'AF 00 FB eh g46 108 CALLS #0,8°10$ ; put a call frame on the stack 
0000 3 41 «WORD 0 
6D 8D'AF DE 068 ot§ MOVAL 68*20$,(FP) 3; set the handler address 
00 BF 0688 64 CHMU #0 3 cause an exception 
68D 644 20$: 
52. 04 AC 0000 oBr ote hove Bn Carel SIGARGLST(AP) ,R2 t si l dd 
am ; get signal array address 
04 A2 Q00000000'8F 01 06958 849 CMPL #SS$_UNQIND,B*CHFSL_S1G_NAM (R2) check the signal name 
21 13 0698 648 BEQL 25$ ; br if its an unwind signal 
O091'CF CO'AF DE 069D 649 MOVAL 68430$,W*UNW+UNWINDS_NEWPC ; set the return PC 
00 DD Q6A3 650 PUSHL #0 ; push a dummy parameter 
O96E'CF 01 FB OQ6A5 651 CALLS #1,W*REG_SAVE 3 Save a register snapshot 
O6AA 036 SUNWIND_G W*UNW ; try level 1 _G 
0683 65 FAIL_CHECK SS$_NORMAL ; check for success 
00000000°8F DD 0683 PUSHL ~ #SS$_NORMAL 
0978'CF 01 FB 06B9 CALLS #1,W*REG_CHECK 
O6BE 654 25$ 
50 00000000'8F 00 peak 655 MOVL #SS$_CONTINUE ,RO ; set continue 
04 06C 656 RET 
06C6 657 30$: 
0915 30 06C6 658 BSBW W*STACK_CHECK ; check the stack 
0609 659 ;+ 
06C9 660 ; 
06C9 661 ; test level 3 _S 
06C9 066 3 
0609 663 ;- 
bere 664 NEXT_TEST 
6C9 
543 STP32: 
0004'CF 20 dO 06C9 MOVL #32,W*CURRENT_TC 
8 DD beck PUSHL 
096E ‘CF 1 F re cauhS #1 ,W*REG_SAVE 
O12B;cr 03 DO O6D5 665 MOVL $*#3,W*DEPTH ; set the depth 
DE'AF 00 FB OQ6DA 666 CALLS #0,B°4$ 3; put a frame on the stack 
RODE 667 4$: 
0000 ope 668 -WORD 0 
E4*AF 00 FB O6ED 669 CALLS © #0,B*8$ ; and an other | 
6E4 67C 8$: 
0000 Q6E4 671 -WORD 0 
EA'AF 00 FB 06E6 of¢ CALLS #0,B8°10$ > put a call frame on the stack 
6EA 673 108: 
000 Q6EA 674 -WORD 0 
6D F2'AF ODE OQ6E 675 MOVAL 6*20$,(FP) ; set the handler aduress 
BF OQ6F 976 CHMU #0 3 cause an exception 
6F 677 20$: 
0004 O6F 678 -WORD “M<R2> 
i 
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$045800 UNWIND TESTS grSee19be Sasdoste LORTP SY. caeagayeesoo.mars1 ae 2S, vC 
5 AC OD 6F4 679 MOVL B“CHFSL_SIGARGLST(AP) ,R2 et signal array address 
04 A2 08600090 00" 8F it oF 680 CMP 85 35_UNGIND .B°CHFSL_S SiG “NAME (R2) ? check the 's nal name 
§3 13 681 BEQL 25$ ; br if its an unuind signal 
0 odd Q7 6 ¢ PUSHL #0 : ~ a dummy parameter 
O96E'CF OF FB 0706 6 CALLS #1,W*REG_SAVE Save a be snapshot 
709 684 SUNWIND_S DEPADREDEPTH,NEWPC=30$ ; try Leve 
71C ~=—685 FAIL_CHECK SS$_NOR MAL ; check success 
00000000" 8F DD 071 PUSHL ~ #SS$_NORMAL 
0978'CF 01 FB 4 686 25$ CALLS #1 »W*REG_ CHECK 
50 Q0000000'8F 00 0727 687 MOVL #SS$_CONTINUE,RO 3 set continue 
04 0O72E ons RET 
72F 30$: 
OBAC 30 O72F 690 BSBW W*STACK_CHECK 3; check the stack 
07 691 ;+ 
af $36 3 
7 6935 ; test level 3 with _G 
07 694 ; 
07 695 ;- 
073 696 NEXT_TEST 
073 
A STP33: 
0004'CF 21 dO 73 MOVL #33,W*CURRENT_TC 
DD Ores PUSHL i 
6E'CF 01 #4FB 0739 CALLS #1,W*°REG SAVE 
0091'CF 95°AF DE O73E 697 MOVAL B6*30$ wUNGSUNU EROS. -NEWPC : set the new PC 
B'AF 00 FB 0744 698 CALLS #0,B°4$ ; put a frame on the stack 
0748 699 4$: 
0000 0748 700 .WORD 0 
4E' AF 00 FB O74A 701 CALLS #0,B*8$ 3; and another 
074E Pe 8$: 
0000 te 70 -WORD 0 
54'°AF 00 FB 0Q75 704 CALLS #0,8°10$ ; put a call frame on the stack 
0754 705 10$: 
0000 0754 706 -WORD 0 
6D SC'AF DE 0756 £707 MOVAL B*20$,(FP) 3 set the handler address 
BF O75A 708 CHMU #0 3 cause an exception 
075C 709 20$: 
0004 0O75¢ 710 «WORD “M<R2> 
52. 04 AC 00 Br 38 711 MOVL B*CHFS$L_SIGARGLST(AP) ,R2 et signal array address 
04 A2 Q0000000'8F 01 76 re CMPL #SS$_UNQIND,B*CHF SL SiG. NAM (R2) ; check the signal name 
1 13 O76A 71 BEQL br its an unwind signal 
0091'CF 9S5'AF DE O76C 714 MOVAL 6430S ,W“UNWUNWINDS _NEWPE ; set the returi PC 
DD Q772 £715 Sine i push a dummy parameter 
096E ‘CF 1 FB Q774 ay CALLS #1 .W*REG_SAVE 3 Save a register snapshot 
779—=s 71 SUNWIND_G W*UNW 3 try level 1 _G 
28 718 FAIL. CHECK ss$_ NORM 3; check for success 
00000000' 4 DD 07 peese NORMAL 
0978'CF O01 FB hs 719 258 CALLS #1 UFREG. CHECK 
50 00000000'8F 00 780 720 MOVL #SS$_CONTINUE,RO 3 set continue 
04 0794 721 RET 
795 «67 § 30$: 
0846 30 0795 7 BSBW W*STACK_CHECK 3; check the stack 
198 724 TEST_END 
004C'CF DD 79 PUSHL W*TMD_ADDR 
0048'CF DD 79C PUSHL W*TMN_ADDR 
| 
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044" SG CODE 
poo0e 00' cr “LIBSSIGNAL 
0044'CF $V_INHIB_MSG,#1,W*MOD_MSG_CODE 
Gare SG_ CODE 
00000000' oF 0 SSEXIT 
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v0us800 SETUP_SUPE o73Eb-| 984 33854 T 
«SBTTL SETUP_SUPER ROUTINE 


p++ 
; FUNCTIONAL DESCRIPTION: 
s Routine to declare an initial CHMS handler from user mode. 


: CALLING SEQUENCE: 
: SCMKRNL_S W*SETUP_SUPER,ARGLST 


ARGLST = address of a pointer to a cne parameter argument List conta 
the address of the entry mask of the CHMS handler 


VI 
NE 


za- 


INPUT PARAMETERS: 
ARGLST 

IMPLICIT INPUTS 
NONE 


OUTPUT PARAMETERS: 
Declares a change mode handler for super mode which must be 
reset to DCL in the users handler routine when the handler is 
no longer needed. 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

V_N 


SERV_NAME is Left containing a pointer to DCLCMH 
ON ENTRY: 


- SATS SYSTEM S 
SETUP_SUPER ROUTI 


00000000 
00000000 

000C 

33. D 

EE AF JOA D 
ED AF O04 AC OD 
52. .0C AD D 

2. 00° § 
62 «EB AF 3 

OA F 

16 
04 a¢ 04 

5 00" 00 
04 

7E 904 
FI‘AF 66E OFA 
0000 
00 dD 
O96E'CF O01 FB 
QO69'CF O178'CF ODE 
Q1OF*CF O831'CF ODE 
00000000'8F DD 
ODA7'CF O01 FB 
03C00000 8F DD 
93 AF ODD 
02 
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FAIL. ci 


00009090900 09 09 00 08 SI SINS SI SSIS NS SSS 
MPTP OO TF HHH HMMM MMMM MoO OO OOOOOOoOW 
OOOWM OOO > IW OOD NEW PO 2 ON 


OOOO GCOOSGOOCOCOCOOCOCOCOOOOOOOOO 


ainnaseiieiniemmpaciet — 


4: UETPSY.SR JSATSSS 


0 ; storage for user return PC 
; storage for handler PC 


| 
R3> | 
#PRS_U get the user call frame address 


“M<R2, 
SFSL “Save acer) ,B*RETURW_ et the user return PC 
4 (APY ,HANBLER_PC ; save the handler address 

SFS$L gave FP(FP),R : get saved FP 

Steere se CMSTKSZ.R ; ack over change mode stack frame 
B*20$, (RZ) turn address 
gccPa( sc SUPER@PSLSS_ cuRMODS+PSi $C _SUPER>,= 


#PSL$S_ ~CURMODS2 4(R2) ; set current and previous mode to super 
S*#SS$_NORMAL ,R Rb ; set correct return code 
enter super mode 


-(SP) ; set up quay PSL 

(SP) ,B*30$ ; create initial call frame 
“M<> 3 entry mask 

#0 3; push a dummy parameter 
#1 ,W*REG SAVE ; save the registers 
w*SM,W*MODE 3 set the mode 

w*DCLCMH W*SERV_NAME set service name 
S @HANDLER_PC, W™PRVHND1 O°; set real handler 

CKNP SS$_NORMAL : sherk fer sucess 
PUSHL w538. Ay: . 


CALLS HECKNP 
#<<PSLSC ieeneperse CURMOD>= 
<PSL$C_OSER@PSLSV -PRVMOD>>; set return to user 
RETURN. PC ; set the return PC 
; return to user mode 


Te 
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Sor S885 SUPER _MODE ates 90:98:95 SET eey SAE TGAT SSS oo .MAR1 . { 
D 09 .SBTTL SUPER_MODE 
D 10 34+ 
D 11 ; FUNCTIONAL DESCRIPTION: 
. 1 3 Routine to handle the CHMS instructions. 
D 814 : CALLING SEQUENCE: 
4 17 3 CHMS aN 
D 19 : INPUT PARAMETERS: 
D 18 ; SP=> CHMS parameter 
D 19; PC 
. 9 : PSL 
8 p : : The CHMS parameter can be one of the following: 
082D 4: 1 = execute the $SETEXV tests 
be ° S$; 2 = execute a SDCLCMH_S to reset the CHMS handler 
082D ; : OUTPUT PARAMETERS: 
082D 828; NONE 
ae 
$850 831 WORK: cs 
00000000 b8¢0 B36 sontee -LONG 0 3 scratch storage H 
48 4D 43 4C 43 44 60" a831 834 ; -ASCIC /DCLCMH/ ; service name Hy 
0838 835 SUPER_MODE: cu 
50 8E— 00 ett 836 MOVL (SP)+,RO $ get CHM parameter off the stack dC 
02 01 50 &F ted te 108: CASEB =RO,#1,#2 i; do the right thing pe 
0004' 083F 839 .WORD  20$-10$ 
OOFD* bees ek 208: -WORD 6830-10$ 
00000006 ks B4¢ "  STEP=6 
ak 84 SEVT SUPER, YES ; do the super tests 
ees 
0843 : The next section will declare 2 SUPER exception handlers. 
084 ; A primary and secondary handler will be 
Oat ; set using the SSETEXV_G system service. 
55 D4 nee e, CLRL R5 3; set init. handler type 
0079'CF 02 dO ObeR 300078 MOVL #PSLSC_SUPER,W*SET+SETEXVS_ACMODE ; set access SUPER 
DD 4A : PUSHL #0 ; push dummy parameter 
096E ‘CF 0} ' 4C CALLS #1,W*REG_SAVE 3 save register snapshot 
0071°CF 5 OD 51 OVL RS mg AAG CTOR ; set vector type 
ger Sscerts Bb is ames tre 
coool atest GB SEE Bais Ft eases ten 
OFBr Cr be *5 fare olevanter vee ; increment step number 
c8 01 pg 7E AOBLEQ Wi hs S0007$ : do all 1 types 
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5005880 SUPER _MODE eset 1 RET EEE UETPSY.SRCIJSA O8599 mar: ° 23) 
«LIST ME 
; An exception will now be caused to check the handlers. 
0127'CF f 88 BISB2 #2,W*FLAG1 3; set excep. should occur 
g BF CHMU # 3 cause an exception 
cciee 9 RB SUPER_END ; go on 
888 SUPER_HANTAB: 
0000089B' B -ADDRESS SUPER_PRIM ; handler address table 
000008BC' of «ADDRESS SUPER_SEC 
; PRE_SUPER_PRI: 
00000000 089 «LONG 0 : previous handler table 
0897 PRE_SUPER_SEC: 
00000000 0897 -LONG 0 
0898 »LIST ME 
0898 5 
0898 3 
+t44 3; test the SUPER primary exception handler 
0898 :- 
| 0898 SUPER_PRIM: 
0000 0896 «WORD 0 
089D -LIST ME 
089D STP8: 
0004'CF 08 DO 089D OVL #8 ,W*CURRENT_TC 
00 DD OB8A2 PUSHL # 
096E ‘CF 01 FB OBA4 CALLS #1,W*REG_SAVE 
0127'°CF 96 OQOB8A9 INCB W*FLAG1 3; set excep. did occur 
0701 30 OQO8AD BSBW EXCEP_CHECK : check primary handler 
50 00000000'8F 00 0880 MOVL #SS$_RESIGNAL,RO 3 and resignal 
0127'"CF 97 0887 DECB W*FLAG1 3 reset excep. did occur 
04 0888 RET 
08BC ~LIST ME 
Oat 
Bees 3 test the SUPER secondary handler and clean up the exception 
088C :- 
08BC SUPER_SEC: 
0000 O8BC -WORD 0 
O8BE »LIST ME 
Oabe STP9: 
0004'CF 09 ~38«2~+»D00 B MOVL #9 ,W*CURRENT_TC 
00 DD O8C PUSHL # 
O96E CF 01 yi C CALLS #1 ,W*REG_SAVE 
0127'CF 96 CA INCB W°FLAGI 3 set excep. did occur 
06E0 30 OB8CE BSBW EXCEP_CHECK 3 check secondary handler 
DD +2 PUSHL r 
DD th PUSHL @ 
00000000 ' GF fe 8D CALLS @# s"sysenmiie 
50 _00000000' 8F p D OVL ass CONT INUE . RO : and resignal 
0127'CF 03 . : Bii82 #3,W"FLAG ; clear excep. did & should FLAG! 
+34 LIST ME 
E9 3 
} 
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E9 ; 
E9 ; the SUPER Last chance handler can not be tested because 
£3 ; it will always force an exit from the process. 
33 ; reset the SUPER primary handler 
E9 :- 
9 SUPER_END: 
E9 LIST ME 
E9 STP10: 
0004'CF OA DO OBES MOVL #10,W*CURRENT_TC 
89 DD peek PUSHL 
O96E'CF 1 FB F CALLS #1,W*REG_SAVE 
00 OD O8FS PUSHL #0 
02 OD O8F7 PUSHL #PSLSC_SUPER 
FF96 DF DF beep PUSHAL @W*PRE_SUPER_PRI 
00 DD O8FD PUSHL # 
00000000 ' GF 04 FB OB8FF CALLS #4,G*SYSSSETEXV 
00000000'8F DD 0906 PUSHL #SS$_NORMAL 
0978'CF 01 FB Bars CALLS #1, W*®REG_CHECK 
0911 3+ 
0911 3 
48 ; reset the SUPER secondary handler 
0911 = 
0911 LIST ME 
0911 STP11: 
0004'CF 0B DO 0911 OVL #11,W*CURRENT_TC 
00 DD 0916 PUSHL 
O96E'CF 01 FB 0918 CALLS #1,W*REG_SAVE 
00 OD 091D PUSHL #0 
02 DD O9IF PUSHL #PSL$C_SUPER 
FF72 DF OF 835 PUSHAL @W*PRE_SUPER_SEC 
01 DD 0925 PUSHL @# 
00000000 ' GF 04 FB 0927 CALLS #4, ,G*SYSSSETEXV 
00000000'8F oD O9eE PUSHL #SS$_NORMAL 
0978'CF 3 FB 0934 CALLS #1,W*REG_CHECK 
0031 31 0939 844 BRW B70 3 carry on 
093C 845 B30: 
FEEA CF O10F'CF ODE 3544 846 MOVAL W*SERV_NAME ,W*“WORK ; save previous service name 
O1OF'CF FEEA CF DE 094 847 MOVAL  W*DCLCAH,W*SERV_NAME 3; set Hers service name 
094A 848 SDCLCMH_S @PRVHND1, ,#0 : reset the CHMS handler to DCL 
958 849 FAIL_CHECK SS$_NORMAL : check for success 
00000000'8F ODD 0958 PUSHL ~ #SS$_NORMAL 
978'CF 01 FB 0961 CALLS #1,W*REG_ CHECK : 
OIOF°CF FEC3 CF DO 4¢3 $20 870 MOVL WAWORK ,W*SERV_NARE 3; reset to the previous service name 
02 096D 33) REI ; go back to user mode 
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TS 
SAV 
-SBTTL REG_SAVE 


++ 
FUNCTIONAL DESCRIPTION: 
Subroutine to save R2-R11 in the register save location. 


: CALLING SEQUENCE: 
: PUSH 3; save a dummy parameter 
: CALLS #1,W*°REG_SAVE : save R2-R11 

: INPUT PARAMETERS: 

; NONE 


; OUTPUT PARAMETERS: 
NONE 


REG_SAVE: 
“WORD “M<R2,R3,R4 
MOVC3 #410,°x14¢ 


RET 
.SBTTL REG_CHECK 


++ 

FUNCTIONAL DESCRIPTION: ; 
Subroutine to test RO & R2-R11 for pre er content after a service 
execution. A soapenes is taken by the REG_SAVE routine at the 
beginning of each step and this routine is executed after the 
services have been executed. 


; CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX 3; push expected RO contents 
CALLS #1,W*REG_CHECK ; execute this routine 


; INPUT PARAMETERS: 
expected RO contents on the stack 


OUTPUT PARAMETERS: : 
possible error messages printed using SPUTMSG 


11> 


F R5,R6,R7,.R8.R9,RI0,R 
O008'CF 14 AD 28 2 FP); W*REG.SAVE_AREA ; save the registers in the program 


AME WN O O00 SAU EWN OC OOONA UE WO OD NOAU EW OWONOUS 


DOOOOOOOOOOOOOOOOOOOOOOOOVDOOOOOOOOOOOOOOVOOVOOWOOOOOOOOOO 
OOOO 0000 NIN NNN NSN NNN SISTA AAA AAAAAOAAAAOAOAOOOrn man 
NSUTTIEM OUIPVOMM & COC 09 C0 C900 COCO COCO COCO COC COD OOCI OOD OOOO VOM MM MMMMmmmmMmmmmmmmrmrnrrirricry 


DOODOOCOOCO OOOO O OOO O09 0000 09 00 09 09 09 SI NIN NIN SN NN PPA AAO AO OOunmnnnu1v 


WO0O0O0O000O0 0000000000 00 09 09 G9 00 09 G9 00 0D 00 09 C0 Cd CD C0 Cd Cd CD CD CD C0 Cd C9 CD C9. CD. CD CD CD CO CD CD CD CD CD 


REG_CHECK: 
OFFC -WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> ; 
50 O04 AC 0D! 7 CMPL 4(AP) ,RO ; is this the right fail code? 
cots 8 BEQL 10$ ; br if yes 
0 OD 9 PUSHL RO 3 push received data 
04 AC OD 0 PUSHL 4(AP) : push expected data 
OIAG'CF ODF 1 PUSHAL W*“*EXP ; push the string variable 
OE7E'CF O35 FB § 108 CALLS #3,W*PRINT_FAIL 3; print the error message 
0008* CF 14 AD 8 9 4 CMPC3) «= #4410,*X14(FP),W*REG_SAVE_AREA ; check all but RO 
2 : 9 5 BEQL 208 ; br if O.K. 
560 = 53 votes ° yal 4 c? 44 88 sve #REG_SAVE_AREA,R3,R6 ; calculate the register number 
7E 3 6 1 aM 4 ADDB #*X2 ,R6,-(SP) ; set number past RO-R1 and save 
a1 8 CA O9A 0 BICL #3,R1 ; backup to register boundrys 
3 CA O9A9 10 BICL #3,R3 


-—— 


04808" 


009 
OE7E'CF 


——_— 
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; push received data 

; push expected data 

; set string pntr param. 

; print the error message 


rca re 2 - 7 
2 | 
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+ 99 8 «SBTTL REG_CHECKNP 
9BA 3 0 : FUNCTIONAL DESCRIPTION: 
SBA 1 3 Subroutine to test RO & R2-R11 for proper gontent after a service 
SBA 9 § ; execution without Begin it. A snapshot is taken by the REG_SAVE routine a 
SBA 925 ; beginning of each step and this routine is executed after the 
9BA 4 4; services have been executed. This routine collects the error 
zh 3 5; information in buffer ERLB instead of printing it. 
098A 9 : : CALLING SEQUENCE: 
SBA 928; PUSHL #SS$_XXXXXX i; push expected RO contents 
2984 4 4 3 CALLS #1,W*REG_CHECK ; execute this routine 
9BA 931 : INPUT PARAMETERS: | 
Been 3 § : expected RO contents on the stack 
09BA 934 : OUTPUT PARAMETERS: | 
O9BA 935 ; possible error messages logged in buffer ERLB which are printed 
Been 338 ; using routine ERLBUF_DUMP. 
beae o38 : Error packets are in the following form: 
Seen aay : ‘service name pntr! 
ee Oe TT Ee | 
098A 946 : iMode name pointer! 
: | em me nee nnnnnnnnne ' 
Been 8¢8 3 ! long word count 
O9BA 948 : AVAVAVAVAVAVAVAVAY. 3-4 parameter long words 
SBA 363 ; 
9BA 50 ;-- 
O9BA 982 FLAG | 
00 O9BA 335 "BYTE 0 ; error flags are BITO = 0 means no errors in the bu 
Been gee — ; BITO = 1 means errors in the buffe 
0000098F ' 0986 928 ae -ADDRESS ERLB :; error log buffer pointer | 
OOO00DA7 O9BF 958 "  BLKB = 1000 ; error log buffer | 
DA? 960 REG_CHECKNP: 
OFFC DA? 961 ~ WORD “M<R2,R3,R4,R5,R6,R7,RB,.RI,RIO,RII> 
50 04 AC D1 ODAD 96¢ CMPL «= 4 (AP) .RO ; is this the right fail code | 
3D 13 QDAD 9%6 BEQL 10$ 3; br if yes 
FCO6 CF 01 88 ODAF 964 BISB2 #1,FLAG 3; set the error logged flag bit 
52 FCO3 CF DO ODB4 965 MOVL ELBP,R2 3; get the current error log pointer 
8 OI0F \CF D0 ODB9 966 MOVL  W*SERV_NAME,(R2)+ ; save the service name 
8 004'CF 00 ODBE 96 MOVL  WCURRENT TC,(R2)+'; save the step number 
ae D te ¢3 MOVL W*MODE , (RZ)+ 3 save the mode 
3 90 Onc 36 MOVE #3, (RoS+ : save the long word count 
8 50 4 pcB C9 9 MOVL RO, (R2)+ 3 save received status 
82 04 AC 00 ODCE 97 MOVL 4 (AP) « (R2 + > save expected status 
82 O1A4'CF bf DD af6 MOVAL wager ese )+ 3; save the string variable 
8g 4 ODD 97 CLRB (R2) 3 set the terminator 
FBDD CF DO ODD9 974 MOVL R2,ELBP 3 reset the buffer pointer 
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5005808 REG_CHECKNP mie} 7 80: 38:95 DETP SY eRe TSAySSSo> MAR: 1 . (3) 
GO4C'CF OO2A'CF OD DD 75 MOVAL W*TEST_MOD_FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 65 00 §5 Pf BES 6 10$ INSV #ERROR # aS W'HOD MSG CODE 3 set severity coat 
0008'CF 14 AD 28 ¢ DE 8 CMPCS) «= #4210,“°X14(FP) ,W*REG_SAVE_AREA ; check all but RO and R1 
4B DF 7 Q 208 : br if OR 

FBCO CF 601 8 DF 0 BISB2 #1,FLA ; set error logged flag bit 
5 feRD CF «OOD DFA 981 MOVL LOP,R 3; get current error log buf pointer 
8 O1OF'CF DO ODFF 9 : MOVL  W*SERV_NAME,(R2)4+ ; save the service name 

0004'CF OD DED, 9 MOVL  W*CURRENT_TC,(R2)+'; save the step number 
8 § 69'CF ) E09 984 MOVL W*MODE , (RZ) + 3; save the mode 

4 9 vf 985 MOVB “#4, (R2)+ 3; set longword count 
00000008'8F Cc E1 4 § SUBL3. #REG_SAVE_AREA,- 
3 E17 R3,R ; calc reg number 

6 83 C6 0E19 +4 DIVL S*#4,R6 3 make it a longword count 
82 6 2 Ci OEIC 989 ADOL $*#2,R6,(R2)+ 3; correct for RO=-R1 and save 

82 61 DO OE 9 990 MOVL (RID, (RE) : save received results 

8 63 00 OE 991 MOVL (R3),(R2)+ 3 save expected results 
82 O095'CR DE OE26 936 MOVAL W*REG, (R2)+ : save string variable 

9 94 OE2B 99 CLRB (R2) 3 set the terminator 
FB89 CF DO OE2D 994 MOVL R2,ELBP 3; reset the buffer pointer 
OO4C*CF OQOO2A'CF DE OE $ 995 MOVAL W*TEST_MOD FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 03 O00 O02 FO OE 996 INSV #ERROR, #0,83,W*MOD_MSG_CODE 7 set severity code 
0E40 997 20$: 
04 O0&40 998 RET ; bail out 
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.SBTTL ERLBUF _DUMP 


p++ 
3; FUNCTIONAL DESCRIPTION: 
Routine to check for errors in the error log buffer and 


Wwr—o 


report any that are there. 


CALLING SEQUENCE: 
CALLS #0,W*ERLBUF_DUMP 


—DOOOOCOCOooO 


UMP 
E41 1 
€41 1 
7 | 
41 1 
E41 1004 
E41 1005 
E41 1 § 
ety 
e411 § INPUT PARAMETERS: 
£41 1010 FLAG bit 0 = 9 for no errors Logged 
Sei 101 FLAG bit 0 = 1 for errors logge 
Sei : : if errors logged then buffer ERLB must contain legal format errors 
E41 1014 ; OUTPUT PARAMETERS: 
E41 1015 NONE 
e411 18 
tie 
e411 18 ERLBUF _DUMP: 
wore E41 1020 »WORD “M<R2,R3,R4> 
2A £873 CF Og EAs 1021 BLBC «FLAG, 808 : br if no errors to report 
52 FB73 CF DE Fe ! § 108 MOVAL ERLB,R2 3; set up buffer pointer 
3 any more errors? 
62 9 E4D 1024 TSTB (R2) ? 
$) 13° OESF 1025 BEQL 30$ ;: br if not 
O10F 'CF DO OES1 1 § MOVL (R2)+,W°SERV_NAME ; reset service name 
0004'CF ; D bees 1 MOVL (R2)+,W*CURRENT_TC ; reset step # 
0069' CF D E5B 1028 MOVL (R2)+,W*MODE 3; reset the mode 
53 ? oA 454 1029 MOVZBL (R2)+,R3 3 get the longword count 
54 dO pee? : ? 208 MOVL R3,R4 3 and save it 
8¢ DD Oe 1 ¢ PUSHL (R2)+ ; push a parameter 
GB F5 QE&68 1 SOBGTR R3,208 ; and push them all 
OE7E'CF 54 FB BESe 19 4 CALLS R4,W*PRINT_FAIL ; print the failure 
dbBECié~!L’Y 4 + 5 308 BRB 10$ 3; do the next one 
FB42 CF FB49 CF ODE OE2 18 $ MOVAL ERLB,ELBP 3; reset the buffer pointer 
FB42 CF 94 OE79 1038 CLRB W*ERLB ; set fresh terminater 
04 OE7D 1039 RET : bail out 


TEM SERVICE TESTS (SUCC t s%c. ) 19-3 S att} 1 0: $8: 7 Ortver acte voe<ee ae. Page 7, 


gi ~SBTTL PRINT FAIL 


FUNCTIONAL DESCRIPTION: 
; Subroutine to report failures using SPUTMSG 


VOu=006" Pri 


cro 


108 br 
SF A0_ S$ y°CS2,U*HESSAGEL W"MSGL,4 (AP) BcAPh 6 (APS 12 (AP) 


2 11 3 goto output message 


4 : 
> 3 
§ 3 a eae 9 SEQUENCE 
3 PUSHL EXPECTED Mode #2 PUSHL REG_NUMBER 
8 : PUSHE RECEIVED PUSHL EXPECTED 
: PUSHAL STRING_V oust, ECEIVED 
9 3 CALLS #3,W°PRINT_FAIL PUSHAL STRING_VA 
; CALLS #4 ,W*PRINT_FAIL 
§ ; INPUT PARAMETERS: 
i ; Listed above 
5 ; OUTPUT PARAMETERS: 
§ 3 an error message is printed using SPUTMSG 
Q PRINT_FAIL: 
1 WORD “M<R2,R3,R4.R 
§ $F AO 0S res SWPAESEAGEL. W*MSGL ,ATEST -"OD NAME ,W*SERV_NAME ,W*CURRENT_TC 
SPUTASG. S WAMSGVE :"print the aésgoge 
04 c «(91 & CMP “CAP) #4 ; is Hts . register message? 
.. é BEQ 
8 10$: 
; 208 SFAO_S W*CS3,W*MESSAGEL ,W*MSGL,4(AP) ,16(AP) ,8(AP) ,4( AP), 16( AP), 120 AP) 
1 
§ SPUTMSG_S W*MSGVEC i print she messa 
OF22°CF OO FB CALLS ~#0,W*MODE ID ; identif the mo m4 
004C'CF 602A" Cr DE 4 MOVAL w*fEST oRoS FAIL W*TMD ADDR : set failure message address 
00464'CF O 2 3 set severity code 


So 

o 

a 

Oo 
COOOCOCOCOCOCOCOCOCOCOCOOOCOOCOOOOCOOOOOOOOOCOCOOOOCO 1 HM 


TH HMMM MMM MMM MM MmmMmmrmrrirmnirhirnienicrirrirvirrirrirrirrirricrirrirrirricy?  “"¥ 
MOTO 0TTO® SONNE 
— PWM SS OOO VNU“ QOMMMMMMMMMmMmMmmmmmmmmmmmmmrmnrn << 
ik kk kk kk tk ak a at tt = = ot 2 2 = 


CGoooooooooooooooooo 


SDD DP DDD PPA DMI BE EE 


3 00 O02 F INSV #ERROR;#0,93,W°MOD _MSG_CODE 
04 RET 
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5002808 MODE. gree em IFRS BL 38:95 FOEINES Sacto VOesOe aan. Pee 3, 


.SBTTL MODE_ID 


p++ 
3; FUNCTIONAL DESCRIPTION: 
3 Subroutine to identify the mode that an exit handler is in. 


; CALLING SEQUENC 
CALLS #0, W*%ODE_ID 


eee 


INPUT PARAMETERS: 
MODE contains an address pointing to an ascii string desc. 
of the current CPU mode. 


OUTPUT PARAMETERS: 
NONE 


? 
g 
4 
5 
5 
; 
? 
§ 
4 
003¢ ; "WORD “MCR2,R3,R4,R5> 
$ $FAO_S U"CS5 -W=AESSAGEL ,WMSGL MODE : format the error message 
- : SPUTASG_S w*MSGVEC ; print the mode message 
: 
: 
4 
5 
$ 
8 
9 
0 
1 
§ 
4 
5 
; 
3 


.SBTTL EXCEP_FAIL 


F Eee eee eee eee NNNINININININININININ IN ININS 
o 
mk at at ed as 2 ot ot ot 2 = = 8 8 a 2 2 = 


| 
i | 
r | 
E 
F 1° | 
F 1101 ;++ 
0 F 3 FUCTIONAL DESCRIPTION: 
: } 3 Subroutine to identify an exception failure. 
F 1105 3 CALLING SEQUENCE: | 
f ; CALLS #0,W*EXCEP_FAIL 7 
F 1108 ; INPUT PARAMETERS: 
8 F 11 3 MODE contains an address pointing to an ascii string desc. 6( 
F 1110; of the current CPU mode. 
8 e FIT) 3 CURRENT_TC contains the current test case number. 
3 ; : s FLAG contains expected or unexpected flag. | 
OF4F 1114 : OUTPUT PARAMETERS: 
F 1115; NONE | 
F 1 : 
F 1 je- 
at | 
F 1119 EXCEP_FAIL: | 
003C F 1120 «WORD “M<R2,R3,R4,F"> 
23 FA64 CF O01 ET 1 1121 BBC #1,W°FLAG, 104 ; br if unexpected exception 
7 11 2 SFAO_S wW*CS6,W*MESSA EL ,W*MSGL ,.W*MODE ,~ 
7 11 #TEST_MOD_NAME .W CURRENT _TC : print missing exception 
mt 98 H ' : 108 BRB 20 3 and carry on 
A 11 § 5 $FAO_S W*CS4,W*MESSAGEL -W*MSGL W*MODE,- : 
A ' 208 #TEST_MOD_NAME ,W CURRENT _TC : print unexpected exception 
1 § : SPUTMSG_S W*MSGVEC ; print the message 
04 1350 RET 
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5005888 EXCEP_CHECK §-§ ets 1 g?: 48: $3 Se Teey. eae agayessos MAR; 1 
44 1} ‘i. -SBTTL EXCEP_CHECK 
FAD 1134 - FUNCTIONAL DESCRIPTION: 
44 1 5 ; Routine to check for proper exception name. 
FAD 11 : + CALLING SEQUENCE: 
a 1 $ CALLS #0,W*EXCEP_CHECK 
FAD 1140 : INPUT PARAMETERS: 
FAD 1162 : a 
FAD 1148 t OUTPUT PARAMETERS: 
FAD 1144 ; Possible error messages. 
FAD 1145; 
FAD 1108 ;-- 
HE von 
00000000 OFAD 1145 : x -LONG 0 ; temp storage 
ore 1183 EXCEP_CHECK: 
FB AF 52 dO OFBI 1126 MOVL R2,B*WORK1 3; save r2 
52 04 AC DO OFBS 115 MOVL CHF SL o8{GAN6L ST (AP) oR2 3 get signal array pointer 
04 A201 FBS 1154 CMPL CHFSL-SIG_NAME(R2), 
00000000" 8F 13 rec 1333 am #ss8 _CHODOSER $ is is the right exception? 
: br es 
O4 A DD FC3 1189 PUSHL B*CHFS$L_SIG_NAME(R2) 3; push received 
00000000'8F DD OFC6 1138 PUSHL #SS$_CMODUSER 3 push expected 
O1IAG'CF DF OFCC 11 PUSHAL W*EXP ; push string variable 
FEAS CF 03 FB 44 1399 108 CALLS #3,W°PRINT_FAIL 3; print the error 
52 D5 AF 0 434 1396 . oy B“WORK1,R2 $ restore R2 
3 return 
fs Mie 4 »SBTTL STACK_CHECK 
FDA 1166 4 FUNCTIONAL DESCRIPTION: 
4 Vee : Routine to check the stack level. 
FDA 1169 > CALLING SEQUENCE: 
4s 1109 3 BSBW W°STACK_CHECK 
FDA 1128 > INPUT PARAMETERS: 
Ay 1107 ; WORK2 = stack pointer value to check against 
FDA 1175 :; OUTPUT PARAMETERS: 
FDA 1128 5 NONE 
FDA 1177; 
FDA 1128 :-- 
BR TNE ona 
00000000 4 1 1 stack. cnet on 0 3; stack save location 
FB AF 7: | Fee i “i CPL Pe B“WORK2 3 check sh the level 
of DD OFE4 1185 PUSHL SP } push received 
Fl AF DD FES 11 § PUSHL B*WORK2 3 push exp 
O1B2'°CF OF OFE9 11 PUSHAL W*STACK 3 push str ng we rishi 
FE8C CF O03 FB OFED 1188 ALLS #3,W*PRINT_FAIL ; print the failure 


) | 
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SOL S888° y st ee ee = ety 7 0:98:95 Ber eey Rea SAy SSS o> MAR: 1 ° (3 
FF 1196 10$ 
0S OFFe 11 RSB 3; return 

43 1133 Pa: ~SBTTL EXCEP_CHECKNP 
FF 1198 : FUNCTIONAL DESCRIPTION: 
44 113¢ 3 Routine to check for proper exception name without printing. 
FF 1196 : CALLING SEQUENCE: 
4s W136 3 CALLS #0,W*EXCEP_CHECKNP 
FF3 1199 : INPUT PARAMETERS: 
iy 
FES. 4 é : OUTPUT PARAMETERS: 
FF 1 : Possible output to ERLB. 

prF 1204 ; 
FF 1205 ;-- 

aes 

OFF 1008 EXCEP_CHECKNP: 

TUS OB RES iste RB -acaone ae | 
ef O46 A dO ore 1211 MOVL CHFS$L_SIGARGLST (AP) ,R3 : get signal array pointer 
04 A D1 1008 sig CMPL CHFSL G_NAME(R3),=- 

00000000" gF 13 1903 ! i am, #558_CRODOSER : is ie ane right exception? 
FOAB CF 01S 8B.C«d100A—s«1:215 BISB2 #1,W*FLAG : set the error logged flag bit 
52 F9A8 CF DO 100F 1 1 MOVL ELBP,R ; get current error log pointer 
8 O10F‘'CF DO 1014 121 MOVL W*SERV_NAME, (R2)+ 3; Save the service name 
5 0004'CF pO 1019 1 18 MOVL W*CURRENT TC, (R2)+ 3; save the step number 
82 Q0069'CF Mi 101 121 MOVL ae (R2)+ 3 save the mode 

90 10 4 1220 MOVB S*#3, (R2)+ 3 save the long word count 
82 4 3 DO 1026 1221 MOVL CHF$L_SIG_NAME(R3),(R2)+ ; save received name 
82 0600000" BF DO 102A 1 MOVL #SS$_CMODOSER, (R2)+ 3 save expected name 
82 O1AG'CF ODE 15 7-% ‘ MOVAL W*EXP,(R2)+ 3 save string variable 
94 10 1224 CLRB (R2) 3 set the terminator 
FO7E CF $5 dO 1938 1225 MOVL R2,W*ELBP ; reset the buffer pointer 
C'CF OO2A'CF ODE 103D 1 § MOVAL wr fest_mop FAIL,W*TMD ADDR ; set failure message adr 
0044'CF O03 00 O02 F i } 108 INSV #ERROR,#0,93,W*MOD_MSG_CODE ; set severity code 
52. FFSE CF DO 1 48 1 3 " MOVL «= WSWORKI,R > restore R 
53 87 AF 43 193 1230 MOVL B*WORK2,R ; restore R 
05 1054 1231 RSB 3; return 
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MOD _MSG_PRINT: 

: PEATITETITIAIIIIIIIIIIILIL IIIT itiiititiiitiiii lh 
es y 
; © PRINTS THE TEST MODULE Be une SUCCESSFUL /PAILED MESSAGES * 
; (USING THE PUTMSG MACRO). * 


pines <MOD_MSG_CODE ,#2,TMN ADDR, TMD_ADDR> ; PRINT 


MSG 
05 t eee AND RETURN TO CALLER 


EMMRTN: 


(ARR RAARABARASAAARAAAASARALESASASLESRR SEARS ERAS ARERR SERRE RRS ERR R AS 
t 


CHANGE MODE ROUTINE. THIS pROUTINE GETS CONTROL WHENEVER * 
A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE 1s ISSUED * 
BY THE MODE MACRO CTO" OPTION). IT MERELY DOES « 
A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS * 
EN E MODE > 

y 

3 

* 


® 
& 
* 
cs 
sd THE EFFECT OF RETURNING TO THE 
e MACRO EXPANSION. 

* 

® 
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0009 

QO0O00S9"FF 1 

; @ RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 
- END SATSSS22 
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MRO ODN NEW OOD NA NE - OOOO Wi 


| 
| 
| 
-WORD 0 ; ENTRY MASK 
JMP @CHM_CONT RETURN TO MODE MACRO IN NEW MODE 


a 
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Symbol table 82SEp= 1986 0:48:93 UETPSY.SR SRESSATSSS 29 .MAR; 1 se 4) 
om 00000178 R 2 SYSSPUTNSG eeeeeere GX 06 
5$$_CMODUSER teeters x SYSSSETEXV eeeeeeee GX 04 
$$$_ CONTINUE teeeeere XxX 04 SYSSSETPRN teeeeeee GX 04 
SS$~ILLEFC teeeeeee XxX 04 SYSSSETSFM eeenenee GX 04 
$$$ NORMAL teeeeeee X04 SYSSUNWIND teeeeeee GX 04 
SS$_RESIGNAL teeeeere X04 SYSSWAKE teeereee GX 04 
SS$ "UNWIND teenenee§ X 04 TEST_MOD_BEGIN 000019 R 
SS$"WASCLR teeneere X04 TEST“MOD “FAIL AR 
SS$~WASSET teeeeeee KX 04 TEST" MOD “NAME 000000 R 

TACK 00000182 R 2 TEST“MOD “NAME _D 0 R 
STACK_CHECK FDE R ” TEST~MOD~SUCC 1F R 

TATUS 065 R 3 TMD _KDDR O4c R 

TEP = 09 B THN ADDR 48 R 

TPO 00050 R 04 TPIB 900000 R 

STP10 OOOBE? R 04 UETPS_SATSMS = 00748009 

STP11 0000911 R 4 ETP$"TEXT = 007411 

STP12 9000170 R 04 000016¢ 02 
STP14 QOOO01FA R 04 UN 0000089 R 0 
STP15 00000218 R 04 NWIND 000003F 02 
STP16 00000246 R 04 UNWIND$_DEPADR = 00000004 
STP17 QO000R6E R 04 UNWIND$_NARGS = 90000002 
STP18 000029C R 04 UNWIND$ ~NEWPC = 9000000 

1P2 OO0000BF R 04 USER_END 0000108 R 04 
STP20 90000326 R 04 USER-HANTAB QOOO00AD R 04 
STP21 00000347 R 04 USER-PRIM 0000008D R 04 
STP2 00000372 R 04 USER™SEC QOOO00DE R 04 
STP2 0000039A R 04 WARNING = 00000000 
STP24 000003C8 R 04 WORK 0000082D R 04 
STP25 00000416 R 04 WORK1 OOOOOFAD R 04 
STP26 00000486 R 04 WORK2 OOOOOFDA R 04 
STP27 Q00004C7 R 04 
STP28 0000053A R 04 
STP29 OO0005AA R 04 

TP3 QOO00EO R 04 
STP30 00000606 R 04 
STP31 00000669 R 04 
STP3 900006¢9 R 04 
STP3 90000 2R 04 
STP4 90000108 R 04 
STPS 00000155 R 04 
STP6 0000158 R 04 
STPB 90000890 R 04 
STP9 000008BE R 04 
STS$V_INHIB_MSG = 9000001. 
SUCCESS = 0000000 
SUPER_END OOOOBED R 04 
SUPER~HANTAB 2000888 R 04 
SUPER~MODE 0 0 R 4 
SUPER~PRIM 00898 R 4 
SUPER 0 CR 4 
SYS$CCREF teeeeeee GX 04 
SYSSCMEXEC eeeeeere GX 04 
SYSSCMKRNL teeeeeee GX 04 

SYSSDCLCMH teeeeeer GX 04 

SYSSEXIT eeeeeeee GX 04 

SYS$FAO eneseens 5 

SYSSHIBER teeeeeee GX 04 


B 3 
SATSSS22 ~ SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00: AX/VMS o V04- Pa 43 
Psect synopsis g SEP=1984 88: $5; $5 UETPSY.S ae Sateesos MAR; 1 — (3) 


Hee tee ee me weet 


PSECT name Allocation PSECT No. Attributes 
~ Oeste 00000000 ( 0.) 0¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ Bappns es ( 9. 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 000001 ( 485.) ¢ ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
ATA 0000012eC ¢ ayo") ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SATSSS22 00001079 ¢ 4217.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
¢ ee eeser enn e ne nace eeceer ene 
! Perforaence indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00:00:00.47 
Command processing 107 se 8 Se Se 
Pass 1 419 00:00:12.66 00:00:31.3 
Symbol table sort 0 5 Shae 00:00:01.62 
Pass 2 306 00:00:04.35 00:00:09.90 
Symbol table output 24 89+ 29:00. 18 00:00:00.35 
Psect synopsis output 2 88 #88888 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 889 00:00:18.95 00:00:46.46 


The working set Limit was 1800 pages. 

96225 bytes (188 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space i tg to hold 579 non-local and 54 Local symbols. 
1262 source Lines were read in Pass 1, "aie object records in Pass 2. 

60 pages of virtual memory were used to define 51 macros. 


weeeeeoeeeeeeeeeeeeeeecoee=} 


Macro library name Macros defined 
"$255$DUA 8: SYSL IG ISTARLET MLB; 2 35 
~$255$DUA 8: AS rye apts MLB; 1 12 
_S255SDUA SYS.OBJJLIB. MLB; 1 
“$255$DUA28:CSYSLIBJSTARLET.MLB;2 

TOTALS (all. Libraries) 4 


768 GETS were required to define 47 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SATSSS22/0BJ=0BJ$:SATSSS22 MSRC$:SATSSS22/UPDATE=(ENH$: SATSSS22) +EXECMLS$/LIB*+SHRLIBS$:UETP/LIB 


PMENT CORPORATION 


BT13A-SE 
AND PROPRIETARY 


A A! AH- x. 
0471 Vax7vMS v4.0. 


cme 


- DIGITAL EQUIPMENT CORPORATION 
_ CONFIDENTIAL AND PROPRIETARY 


